home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NB03
/
UNT
/
T-INVSIN.UNT
< prev
next >
Wrap
Text File
|
1996-03-11
|
2KB
|
39 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME T-INVSIN.UNT ║ ╘════════════════─ ║ ║
│ │ LIBRARY DAS-NB03.PBL ║ ║ ║
│ ╘══════════════════════════╝ ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$if 1
$CODE SEG "DAS_NB03"
$EVENT OFF
$ERROR ALL OFF
$OPTIMIZE SIZE
$OPTION GOSUB OFF
$OPTION CNTLBREAK OFF
$OPTION SIGNED OFF
$DEBUG MAP OFF
$DEBUG PATH OFF
$DEBUG UNIT OFF
$COMPILE UNIT
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
FUNCTION fInvSIN# ( BYVAL X! ) LOCAL PUBLIC
FUNCTION = ATN( X! / SQR( -X! * X! + 1 ) )
END FUNCTION